home *** CD-ROM | disk | FTP | other *** search
/ Aminet 7 / Aminet 7 - August 1995.iso / Aminet / comm / mebbs / logit99.lha / LOGIT.REXX < prev   
OS/2 REXX Batch file  |  1994-07-24  |  1KB  |  53 lines
  1. /* LOGIT by Keith Townsend */
  2. DoorName = "LOGIT"
  3. author = "Keith Townsend"
  4. version= "0.99"
  5. option results
  6. address command "list MEBBSNET:MEBBSNET?.LOG > t:LOGLIST.TXT lformat %n"
  7. address command "date >T:LOGDATE.TXT"
  8.  
  9. call open(file1,"t:LOGDATE.TXT","R")
  10. x=readln(file1)
  11. parse upper var x JUNK1 DT JUNK2
  12. call close(file1)
  13. say "Todays date is "DT
  14. c=0
  15. call open(file,"t:LOGLIST.TXT","R")
  16. do until eof(file)
  17.  
  18. logname.c=readln(file)
  19.  if logname.c="" then call seeya
  20.   say "processing "logname.c
  21. call logem
  22. call cleanup
  23. c=c+1
  24. end
  25. call close(file)
  26.  
  27.  
  28. LOGEM:
  29.  if exists("Mebbsnet:"logname.c) then do
  30.  
  31.   address command "copy MEBBSNET:"logname.c" to MEBBSNET:LOGS/"
  32.  
  33.  end
  34.  
  35. return
  36.  
  37. cleanup:
  38.  if exists("Mebbsnet:LOGS/"||c||"-"||BBS||"-"||DT||".LOG") then do
  39.   say  "A log for this date allready exists"
  40.   address command "delete MEBBSNET:LOGS/"logname.c
  41.   end
  42.  else do
  43.  say "Creating a log for "DT
  44.   address command "rename MEBBSNET:LOGS/"logname.c" as MEBBSNET:LOGS/"c"-"BBS"-"DT".LOG"
  45.   address command "delete MEBBSNET:"logname.c
  46.  end
  47. return
  48.  
  49. seeya:
  50. say "Thank you for using "Doorname" by "author
  51. exit
  52.  
  53.